inherited frmShowDecodeRaspred: TfrmShowDecodeRaspred
  Left = 459
  Top = 335
  Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1080#1103' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '#1072#1082#1090#1072
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 330
    Top = 0
    Height = 546
    MinSize = 330
  end
  inherited ToolBar1: TToolBar
    Height = 0
  end
  object dbgDecodingList: TDBGridEh [3]
    Left = 0
    Top = 0
    Width = 330
    Height = 546
    Align = alLeft
    DataSource = dsc_DecodingList
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    VTitleMargin = 5
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ACT_ID'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'NAME'
        Footers = <>
        Width = 151
      end
      item
        EditButtons = <>
        FieldName = 'DOCDATE'
        Footers = <>
        Width = 109
      end
      item
        EditButtons = <>
        FieldName = 'PMONTH'
        Footers = <>
        KeyList.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12')
        PickList.Strings = (
          #1071#1085#1074#1072#1088#1100
          #1060#1077#1074#1088#1072#1083#1100
          #1052#1072#1088#1090
          #1040#1087#1088#1077#1083#1100
          #1052#1072#1081
          #1048#1102#1085#1100
          #1048#1102#1083#1100
          #1040#1074#1075#1091#1089#1090
          #1057#1077#1085#1090#1103#1073#1088#1100
          #1054#1082#1090#1103#1073#1088#1100
          #1053#1086#1103#1073#1088#1100
          #1044#1077#1082#1072#1073#1088#1100)
        Title.Caption = #1055#1077#1088#1080#1086#1076'|'#1052#1077#1089#1103#1094
      end
      item
        EditButtons = <>
        FieldName = 'PYEAR'
        Footers = <>
        Title.Caption = #1055#1077#1088#1080#1086#1076'|'#1043#1086#1076
      end>
  end
  object dbmDecode: TDBMemo [4]
    Left = 333
    Top = 0
    Width = 459
    Height = 546
    Align = alClient
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'DECODE_TEXT'
    DataSource = dsc_DecodingList
    ScrollBars = ssBoth
    TabOrder = 3
    OnKeyUp = dbmDecodeKeyUp
  end
  inherited ActionList1: TActionList
    inherited aSave: TAction
      Enabled = False
      Visible = False
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    inherited aPrint: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited PropStorage: TPropStorageEh
    Active = False
    Left = 120
    Top = 4
  end
  object ds_DecodingList: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ACT_ID,'
      '    p.GROUP_ID,'
      '    s.name,'
      '    DOCDATE,'
      '    DECODE_TEXT,'
      '    pmonth,'
      '    pyear'
      'FROM'
      '    M_ACT_DECODING_RASPERD p '
      'join services s on s.id = p.group_id'
      'where act_id = :pact_id'
      'order by p.docdate desc, s.name, pyear, pmonth')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 260
    Top = 100
    object ds_DecodingListACT_ID: TFIBIntegerField
      DisplayLabel = #1040#1082#1090' '#8470
      FieldName = 'ACT_ID'
    end
    object ds_DecodingListGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
    end
    object ds_DecodingListNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_DecodingListDOCDATE: TFIBDateTimeField
      DisplayLabel = #1044#1072#1090#1072' '#1088#1072#1089#1095#1077#1090#1072
      DisplayWidth = 12
      FieldName = 'DOCDATE'
    end
    object ds_DecodingListDECODE_TEXT: TFIBMemoField
      DisplayLabel = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
      FieldName = 'DECODE_TEXT'
      BlobType = ftMemo
      Size = 8
    end
    object ds_DecodingListPMONTH: TFIBSmallIntField
      DisplayLabel = #1055#1077#1088#1080#1086#1076
      FieldName = 'PMONTH'
    end
    object ds_DecodingListPYEAR: TFIBSmallIntField
      DisplayLabel = #1055#1077#1088#1080#1086#1076
      FieldName = 'PYEAR'
    end
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 228
    Top = 100
  end
  object dsc_DecodingList: TDataSource
    DataSet = ds_DecodingList
    Left = 292
    Top = 100
  end
end
